home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #14 / Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO / prog_d / mdexp12.zip / UNIT1.DFM / UNIT1.txt
Text File  |  1996-01-04  |  4KB  |  175 lines
  1. object DemoForm1: TDemoForm1
  2.   Left = 185
  3.   Top = 101
  4.   Width = 495
  5.   Height = 356
  6.   Caption = 'Simple Demo'
  7.   Font.Color = clWindowText
  8.   Font.Height = -11
  9.   Font.Name = 'MS Sans Serif'
  10.   Font.Style = []
  11.   PixelsPerInch = 96
  12.   OnCreate = FormCreate
  13.   TextHeight = 13
  14.   object DBGrid1: TDBGrid
  15.     Left = 244
  16.     Top = 19
  17.     Width = 243
  18.     Height = 310
  19.     Align = alRight
  20.     DataSource = DataSource3
  21.     Options = [dgEditing, dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
  22.     TabOrder = 2
  23.     TitleFont.Color = clWindowText
  24.     TitleFont.Height = -11
  25.     TitleFont.Name = 'MS Sans Serif'
  26.     TitleFont.Style = []
  27.   end
  28.   object MDExplorer1: TMDExplorer
  29.     Left = 0
  30.     Top = 19
  31.     Width = 244
  32.     Height = 310
  33.     OutlineStyle = osPlusMinusText
  34.     Options = [ooDrawFocusRect]
  35.     ItemHeight = 13
  36.     Align = alClient
  37.     TabOrder = 1
  38.     ItemSeparator = '\'
  39.     ScrollBars = ssHorizontal
  40.     Active = False
  41.     DataSource1 = DataSource1
  42.     DataSource2 = DataSource2
  43.     DescriptionLabel = Label1
  44.     FieldSeparator = '∩┐╜'
  45.   end
  46.   object Connections1: TConnections
  47.     Left = 27
  48.     Top = 48
  49.     Width = 190
  50.     Height = 181
  51.     BevelOuter = bvLowered
  52.     Caption = 'Explorer'
  53.     Font.Color = clWindowText
  54.     Font.Height = -11
  55.     Font.Name = 'Arial'
  56.     Font.Style = []
  57.     ParentFont = False
  58.     TabOrder = 0
  59.     Visible = False
  60.     CopyToClipboard = False
  61.   end
  62.   object Panel1: TPanel
  63.     Left = 0
  64.     Top = 0
  65.     Width = 487
  66.     Height = 19
  67.     Align = alTop
  68.     TabOrder = 3
  69.     object Label1: TLabel
  70.       Left = 3
  71.       Top = 3
  72.       Width = 460
  73.       Height = 13
  74.       AutoSize = False
  75.       Caption = 'Label1'
  76.     end
  77.   end
  78.   object Connections2: TConnections
  79.     Left = 27
  80.     Top = 228
  81.     Width = 190
  82.     Height = 94
  83.     BevelOuter = bvLowered
  84.     Caption = 'Grid'
  85.     Font.Color = clWindowText
  86.     Font.Height = -11
  87.     Font.Name = 'Arial'
  88.     Font.Style = []
  89.     ParentFont = False
  90.     TabOrder = 4
  91.     Visible = False
  92.     CopyToClipboard = False
  93.   end
  94.   object DataSource1: TDataSource
  95.     DataSet = Table1
  96.     Left = 51
  97.     Top = 84
  98.   end
  99.   object Table1: TTable
  100.     Active = True
  101.     DatabaseName = 'DBDEMOS'
  102.     IndexFieldNames = 'Company'
  103.     TableName = 'CUSTOMER.DB'
  104.     Left = 132
  105.     Top = 84
  106.     object Table1CustNo: TFloatField
  107.       FieldName = 'CustNo'
  108.       Visible = False
  109.     end
  110.     object Table1Company: TStringField
  111.       FieldName = 'Company'
  112.       Size = 30
  113.     end
  114.   end
  115.   object DataSource2: TDataSource
  116.     DataSet = Table2
  117.     Left = 51
  118.     Top = 156
  119.   end
  120.   object Table2: TTable
  121.     Active = True
  122.     DatabaseName = 'DBDEMOS'
  123.     IndexFieldNames = 'CustNo'
  124.     MasterFields = 'CustNo'
  125.     MasterSource = DataSource1
  126.     TableName = 'ORDERS.DB'
  127.     Left = 135
  128.     Top = 159
  129.     object Table2OrderNo: TFloatField
  130.       FieldName = 'OrderNo'
  131.     end
  132.     object Table2CustNo: TFloatField
  133.       FieldName = 'CustNo'
  134.       Required = True
  135.       Visible = False
  136.     end
  137.     object Table2PO: TStringField
  138.       FieldName = 'PO'
  139.       Size = 15
  140.     end
  141.     object Table2AmountPaid: TCurrencyField
  142.       FieldName = 'AmountPaid'
  143.       Currency = True
  144.     end
  145.   end
  146.   object Table3: TTable
  147.     Active = True
  148.     DatabaseName = 'DBDEMOS'
  149.     IndexFieldNames = 'OrderNo'
  150.     MasterFields = 'OrderNo'
  151.     MasterSource = DataSource2
  152.     TableName = 'ITEMS.DB'
  153.     Left = 135
  154.     Top = 255
  155.     object Table3OrderNo: TFloatField
  156.       FieldName = 'OrderNo'
  157.       Visible = False
  158.     end
  159.     object Table3ItemNo: TFloatField
  160.       FieldName = 'ItemNo'
  161.     end
  162.     object Table3PartNo: TFloatField
  163.       FieldName = 'PartNo'
  164.     end
  165.     object Table3Qty: TIntegerField
  166.       FieldName = 'Qty'
  167.     end
  168.   end
  169.   object DataSource3: TDataSource
  170.     DataSet = Table3
  171.     Left = 51
  172.     Top = 255
  173.   end
  174. end
  175.